home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / SYS / s / NumberLines.bed < prev    next >
Text File  |  1996-09-26  |  561b  |  41 lines
  1. /*
  2. ** $VER: NumberLines.bed 1.0 (02.01.96)
  3. **
  4. ** Add number lines to the selected block or to the whole document
  5. */
  6.  
  7. OPTIONS RESULTS
  8.  
  9. SetInputLock ON
  10. SetDisplayLock ON
  11.  
  12. GetBlkDims
  13. PARSE VAR RESULT mode . first . last
  14.  
  15. IF mode = OFF THEN DO
  16.     GetFileInfo
  17.     num = WORD(RESULT,1)
  18.     first = 0
  19. END; ELSE DO
  20.     num = last - first + 1
  21. END
  22.  
  23. SetBookmark 0
  24. SetStatusBar "Adding line numbers..."
  25.  
  26. Move LINE first
  27.  
  28. pad = LENGTH(num)
  29.  
  30. DO i=1 TO num
  31.     MoveSOL
  32.     Text '"' || RIGHT(i,pad,' ') || ':"'
  33.     MoveDown
  34. END
  35.  
  36. MoveBookmark 0
  37. ClearBookmark 0
  38.  
  39. SetDisplayLock OFF
  40. SetInputLock OFF
  41.